home *** CD-ROM | disk | FTP | other *** search
- ;The DougMenu Sample Menu (1.77)
- ; feel free to use any of this text in whatever manner you want
- ; just don't charge money for any of it
- ;
-
- #if %lang% == dutch
- #include = c:\menu\dutch.dml
- #endif
-
- #header message = This is the header box
-
- #timer = 5
-
- #saver message = Register DougMenu Today!
-
- #display ,4,255
- "Welsom to the"
- "DougMenu"
- "sample menu."
-
- #display ,60,255
- "This is an"
- "external"
- "display box"
-
- #display ,255, 20
- "Press alt-1 to see a hidden menu"
-
- #key 0,120
- #password secret
- %secret menu
-
- #f1 = Help
- #display,,,7
- "Help with the menu system:"
- ""
- "Press the number displayed before"
- "an item to access the item."
- ""
- "up & down "
- "arrow keys - move the selection bar "
- "enter key - access selected item "
- "escape key - move back one menu "
- ""
- "left mouse button works like enter "
- "right mouse button works like escape"
- ""
- "press any key to continue"
- #f2 = Exit
- #display,,,2
- "Good Bye !!"
- echo I hope you liked the sample menu
- #exit
- #f3 = Footer Bar
- #display
- "The bar on the bottom"
- "of the screen is the"
- "footer bar."
- #display
- "It shows the user what"
- "function keys"
- "have been defined"
-
- %A Menu Window
- A Sample Menu Item
- echo This is just a sample menu item.
- echo It doesn't really do anything special.
- echo It just shows a simple menu option.
- pause
- User Input
- %User Input Menu
- System Information
- %System Information Menu
- Netware Information
- %Netware Information Menu
- Sub-Title
- Menu Positioning
- %Positioning
- Look at Color Palettes
- #display
- "The root menu is set"
- "to color palette 0"
- "but this box is set to"
- "the default message"
- "palette"
- #display,,,1
- "The this box is set"
- "to color palette 1"
- #display,,,2
- "The this box is set"
- "to color palette 2"
- #display,,,3
- "The this box is set"
- "to color palette 3"
- #display,,,4
- "The this box is set"
- "to color palette 4"
- #display,,,5
- "The this box is set"
- "to color palette 5"
- #display,,,6
- "The this box is set"
- "to color palette 6"
- #display,,,7
- "The this box is set"
- "to color palette 7"
- #display,,,8
- "The this box is set"
- "to color palette 8"
- #display,,,9
- "The this box is set"
- "to color palette 9"
-
- %User Input Menu
- DougMenu Variables
- #ask string,Enter a String,,,8
- #ask choice,Chose a Selection,,,6
- "Choice 1" = The First Choice
- "Choice 2" = The Second Choice
- "And Another Choice"
- "Choose Not to Choose" =
- #display,,,1
- "Your String Was:"
- "%string%"
- #if %choice%
- #display,,,1
- "Your Choice Was:"
- "%choice%"
- #else
- #display,,,1
- "You Chose Not To Chose."
- #endif
- Password Feature
- #password dougmenu
- #display
- "That is the Password !!!"
-
- %System Information Menu
- Find a formated floppy disk
- #floppy floppy_drive
- #display
- "A floppy formatted floppy disk"
- "was found in drive %floppy_drive%"
- Check for free disk space
- #display
- "This will check to see if"
- "there are 300 K bytes free"
- "on a floppy disk"
- #floppy floppy_drive
- #space %floppy_drive% 300
- #display
- "There was at least 300 K"
- "bytes free."
- Look for C:\WP51\WP.EXE and run it if it exists
- #if_exist c:\wp51\wp.exe
- #display
- "You have WordPerfect 5.1 on your computer!"
- ""
- "Press any key to start WordPerfect or"
- "Press escape to return to the menu."
- c:\wp51\wp.exe
- #else
- #display
- "C:\WP51\WP.EXE was not found."
- ""
- "Press any key to the menu."
- #endif
-
- %Netware Information Menu
- Are you logged in to a server?
- #if_member everyone
- #display,,,1
- "You are logged in to a server"
- #else
- #display,,,2
- "You are not logged in to a server"
- #endif
- Check your user name
- #ask user,Enter your username:
- #if_username %user%
- #display,,,1
- "You are logged in as %user%"
- #else
- #display,,,2
- "You are not logged in as %user%"
- #endif
- Are you logged in to server1?
- #if_member server1/everyone
- #display,,,1
- "You are logged in to server1"
- #else
- #display,,,2
- "You are not logged in to server1"
- #endif
-
- %Positioning,0,0
- Open a box in the top right
- #display,80,0
- "Box in the top right"
- Open a box in the bottom right
- #display,80,25
- "Box in the bottom right"
- Open a box in the bottom left
- #display,0,25
- "Box in the bottom left"
-
- %Secret Menu,,,2
- Secret Option #1
- echo It's not that secure
- echo but it could be useful.
- pause
- Secret Option #2
- echo Security through obscurity.
- pause
-